|
900
|
How can I prevent a link to end to a specified bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 160");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Not-End-Linkable");
_ObjectCallMethod( items , "AddBar", h,"Unknown","6/21/2005","6/28/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,31) = False");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/23/2005","6/27/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","6/27/2005","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
899
|
How can I prevent a link to start from a specified bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 160");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Not-Start-Linkable");
_ObjectCallMethod( items , "AddBar", h,"Unknown","6/21/2005","6/28/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,30) = False");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/23/2005","6/27/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","6/27/2005","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
898
|
How can I prevent a specified bar to be linked
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 160");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Not-Linkable");
_ObjectCallMethod( items , "AddBar", h,"Unknown","6/21/2005","6/28/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,32) = False");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","6/23/2005","6/27/2005","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","6/23/2005","6/27/2005","");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
897
|
How can I display in the chart's header only days where the week starts
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstWeekDay", 1);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%mmmm%> <%yyyy%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectSetProperty( level , "Unit", 16);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Unit", 4096);
_ObjectSetProperty( level , "FormatLabel", " (0:=weekday(dvalue)) = 1 ? '<b>' +value : '' ");
_ObjectSetProperty( chart , "UnitWidth", 23);
|
|
896
|
Is there any automatically way to display and change the bar's duration in the columns section
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Duration");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 513");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2009");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2009","1/7/2009");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/4/2009","1/9/2009");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
895
|
How can I programatically move or resize a bar using spin or slider controls in the columns
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( columns , "Add", "End");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 2");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "ShowEmptyBars", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2009");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2009","1/7/2009");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/4/2009","1/9/2009");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
894
|
I am trying to call the ItemBar(exBarStart) after curent ending point, and the bar is not updated. What I am doing wrong
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/21/2005");
_ObjectSetProperty( chart , "ShowEmptyBars", 1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Test");
_ObjectCallMethod( items , "AddBar", h,"Task","6/22/2005","6/26/2005","");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod( items , "AddBar", h,"Task","6/27/2005",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,``,2)"));
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
893
|
How can change in the same time the starting and ending points of the bar
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/21/2005");
_ObjectSetProperty( chart , "ShowEmptyBars", 1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Test");
_ObjectCallMethod( items , "AddBar", h,"Task","6/22/2005","6/26/2005");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectGetProperty( items , "FirstVisibleItem");
_ObjectCallMethod( items , "AddBar", h,"Task","6/27/2005","6/29/2005");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
892
|
How can I control the exBarEffort property of the bar using slider controls
OBJECT bar,chart,column,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks") , "AllowDragging", 0);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Histogram");
_ObjectSetProperty( column , "AllowDragging", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 18);
_ObjectSetProperty( column , "LevelKey", 1);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Effort");
_ObjectSetProperty( column , "LevelKey", 1);
_ObjectSetProperty( column , "AllowDragging", 0);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 64);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 21");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(41) = -100");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(44) = 9");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(43) = 1");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 3);
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 160");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramView", 67348);
_ObjectSetProperty( chart , "HistogramHeight", 64);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramCriticalColor", 255);
_ObjectSetProperty( bar , "HistogramPattern", 512);
_ObjectSetProperty( bar , "HistogramType", 1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","6/21/2005","7/1/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditorVisible(h,2) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = ``");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/28/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/23/2005","7/1/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,21) = 5");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/25/2005","6/27/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,1) = 1");
h = _ObjectCallMethod( items , "AddItem", "Project 2");
_ObjectCallMethod( items , "AddBar", h,"Summary","3/7/2005","7/12/2005");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditorVisible(h,2) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = ``");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","7/3/2005","7/8/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", h1,"Task","7/5/2005","7/12/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,``,21) = 5");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", h1,"Task","7/7/2005","7/8/2005","");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
891
|
How can I determine if there is any Redo operation
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowUndoRedo", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
var_CanRedo = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "CanRedo");
|
|
890
|
How can I determine if there is any Undo operation
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowUndoRedo", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
var_CanUndo = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "CanUndo");
|
|
889
|
How can I turn on the Undo/Redo feature
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowUndoRedo", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
|
|
888
|
How can I disable resizing the histogram at runtime
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "OnResizeControl", 256);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 32);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).HistogramPattern = 6");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/7/2001");
|
|
887
|
How can I display automatically the start and end dates of the bars in the columns section
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 7);
column = _ObjectCallMethod( columns , "Add", "End");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 2");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 7);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 196");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","9/21/2006","9/24/2006");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","9/22/2006","9/25/2006");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","9/23/2006","9/26/2006");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
886
|
How can I enable Undo/Redo support
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 7);
_ObjectSetProperty( column , "LevelKey", 1);
column = _ObjectCallMethod( columns , "Add", "End");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 2");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 7);
_ObjectSetProperty( column , "LevelKey", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectSetProperty( chart , "AllowLinkBars", -1);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 196");
_ObjectSetProperty( chart , "AllowUndoRedo", -1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","9/21/2006","9/24/2006");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","9/22/2006","9/25/2006");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","9/23/2006","9/26/2006");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
885
|
Is there any option to update the bar's properties once the cell's value is changed ( associate the cell with bar )
OBJECT chart,columns,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "Debug", -1);
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( columns , "Add", "Start") , "Editor") , "EditType", 7);
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( columns , "Add", "End") , "Editor") , "EditType", 7);
_ObjectCallMethod( columns , "Add", "Info");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 224");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "InsertItem", "","","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/23/2006","A","Caption");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`A`,4) = 18");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h1,3).EditType = 1");
_ObjectCallMethod( items , "CellValueToItemBar", h1,1,1,"A");
_ObjectCallMethod( items , "CellValueToItemBar", h1,2,2,"A");
_ObjectCallMethod( items , "CellValueToItemBar", h1,3,3,"A");
h2 = _ObjectCallMethod( items , "InsertItem", "","","Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","9/22/2006","9/24/2006","B");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h2,3)");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(41) = -100");
_ObjectCallMethod( items , "CellValueToItemBar", h2,1,1,"B");
_ObjectCallMethod( items , "CellValueToItemBar", h2,2,2,"B");
_ObjectCallMethod( items , "CellValueToItemBar", h2,3,19,"B");
h3 = _ObjectCallMethod( items , "InsertItem", "","","Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","9/23/2006","9/25/2006","C");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h3,3)");
_ObjectSetProperty( editor , "EditType", 2);
_ObjectCallMethod( editor , "AddItem", 0,"Task");
_ObjectCallMethod( editor , "AddItem", 1,"Progress");
_ObjectCallMethod( editor , "AddItem", 2,"Project Summary");
_ObjectCallMethod( editor , "AddItem", 2,"Summary");
_ObjectCallMethod( items , "CellValueToItemBar", h3,1,1,"C");
_ObjectCallMethod( items , "CellValueToItemBar", h3,2,2,"C");
_ObjectCallMethod( items , "CellValueToItemBar", h3,3,0,"C");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
884
|
Is there any option to update the bar's properties once the cell's value is changed ( associate the column/cell with bars )
OBJECT chart,column,columns,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "Indent", 11);
_ObjectSetProperty( g2antt , "HasLines", 1);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Tasks");
column = _ObjectCallMethod( columns , "Add", "Start");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 1");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 7);
_ObjectSetProperty( column , "LevelKey", 1);
column = _ObjectCallMethod( columns , "Add", "End");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 2");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 7);
_ObjectSetProperty( column , "LevelKey", 1);
column = _ObjectCallMethod( columns , "Add", "Transparency");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 19");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 20);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(g2antt, "TemplatePut", editor)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "ediObj.Option(41) = -100");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectSetProperty( chart , "AllowLinkBars", 0);
_ObjectSetProperty( chart , "AllowCreateBar", 0);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 224");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
_ObjectCallMethod( items , "AddBar", h,"Summary","9/21/2006","10/3/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditorVisible(h,1) = False");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditorVisible(h,2) = False");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","9/21/2006","9/24/2006");
h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","9/24/2006","9/28/2006");
h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","9/28/2006","10/3/2006");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h2,"");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h3,"");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
883
|
How can I group two bars so I can specify the range or the limit of the interval between them
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End") , "Visible", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #9/21/2006#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = #10/3/2006#");
_ObjectCallMethod( items , "AddBar", h,"Summary",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2)"),"sum");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = CellValue(h,1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2) = #9/24/2006#");
_ObjectCallMethod( items , "AddBar", h1,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2)"),"K1");
h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = CellValue(h1,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2) = #9/28/2006#");
_ObjectCallMethod( items , "AddBar", h2,"Unknown",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2)"),"K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1) = CellValue(h2,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2) = CellValue(h,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod( items , "AddBar", h3,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2)"),"K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod( items , "GroupBars", h1,"K1",0,h2,"K2",-1,31,"0;4");
_ObjectCallMethod( items , "GroupBars", h2,"K2",0,h3,"K3",-1,31,"0;2");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",h1,"K1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",h2,"K2");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",h3,"K3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
882
|
How can I group my bars so I can resize the interval between them but still keep the lengths of them
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End") , "Visible", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #9/21/2006#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = #10/3/2006#");
_ObjectCallMethod( items , "AddBar", h,"Summary",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2)"));
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = CellValue(h,1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2) = #9/24/2006#");
_ObjectCallMethod( items , "AddBar", h1,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2)"));
h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = CellValue(h1,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2) = #9/28/2006#");
_ObjectCallMethod( items , "AddBar", h2,"Unknown",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2)"));
_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1) = CellValue(h2,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2) = CellValue(h,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod( items , "AddBar", h3,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2)"));
_ObjectCallMethod( items , "AddLink", "L2",h2,"",h3,"");
_ObjectCallMethod( items , "GroupBars", h1,"",0,h2,"",-1,35);
_ObjectCallMethod( items , "GroupBars", h2,"",0,h3,"",-1,35);
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h2,"");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
881
|
Can I group my bars so they move together when a bar inside changes, but still preserving the length of the bars
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "OnResizeControl", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End") , "Visible", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "9/20/2006");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 64");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #9/21/2006#");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2) = #10/3/2006#");
_ObjectCallMethod( items , "AddBar", h,"Summary",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,2)"));
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = CellValue(h,1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2) = #9/24/2006#");
_ObjectCallMethod( items , "AddBar", h1,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,2)"));
h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = CellValue(h1,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2) = #9/28/2006#");
_ObjectCallMethod( items , "AddBar", h2,"Unknown",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,2)"));
_ObjectCallMethod( items , "AddLink", "L1",h1,"",h2,"");
h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1) = CellValue(h2,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2) = CellValue(h,2)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h3")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h3)
_ObjectCallMethod( items , "AddBar", h3,"Task",_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h3,2)"));
_ObjectCallMethod( items , "AddLink", "L2",h2,"",h3,"");
_ObjectCallMethod( items , "GroupBars", h1,"",0,h2,"",-1,3);
_ObjectCallMethod( items , "GroupBars", h2,"",0,h3,"",-1,3);
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h2,"");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
880
|
How can I split the time scale, so a section displays days, while other displays weeks, and the other months
OBJECT chart,g2antt,insidezoom,insidezoomformat,insidezooms,items,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderHeight", 24);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DrawGridLines", 2);
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2007");
_ObjectSetProperty( chart , "LevelCount", 3);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%yyyy%>");
_ObjectSetProperty( level , "Unit", 0);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectSetProperty( level , "Label", "<%hy%>");
_ObjectSetProperty( level , "Unit", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim levObj")
_ObjectCallMethod(g2antt, "TemplatePut", level)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`1`) = `<b>1/2</b>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`2`) = `<b>2/2</b>`");
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(2)");
_ObjectSetProperty( level , "Label", "<%mmm%>");
_ObjectSetProperty( level , "Unit", 16);
_ObjectSetProperty( chart , "UnitWidth", 28);
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
_ObjectSetProperty( insidezoomformat , "OwnerLabel", "<b><%mmmm%></b> (weeks) ");
_ObjectSetProperty( insidezoomformat , "InsideLabel", "<font ;6>W: <b><%ww%></b>");
_ObjectSetProperty( insidezoomformat , "InsideUnit", 256);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
insidezoom = _ObjectCallMethod( insidezooms , "Add", "1/1/2007");
_ObjectSetProperty( insidezoom , "AllowCustomFormat", -1);
insidezoomformat = _ObjectGetProperty( insidezoom , "CustomFormat");
_ObjectSetProperty( insidezoomformat , "OwnerLabel", "<b><%mmmm%></b> (weeks) ");
_ObjectSetProperty( insidezoomformat , "InsideLabel", "<font ;6>W: <b><%ww%></b>");
_ObjectSetProperty( insidezoomformat , "InsideUnit", 256);
_ObjectSetProperty( insidezoomformat , "BackColorChart", 15787963);
insidezoom = _ObjectCallMethod( insidezooms , "Add", "3/1/2007");
_ObjectSetProperty( insidezoom , "AllowCustomFormat", -1);
_ObjectSetProperty( insidezoom , "Width", 356);
insidezoomformat = _ObjectGetProperty( insidezoom , "CustomFormat");
_ObjectSetProperty( insidezoomformat , "OwnerLabel", "<b><%mmmm%></b> (days) ");
_ObjectSetProperty( insidezoomformat , "InsideLabel", "<font ;5><%d%></font>");
_ObjectSetProperty( insidezoomformat , "InsideUnit", 4096);
_ObjectSetProperty( insidezoomformat , "BackColorChart", 15779985);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1 ");
_ObjectCallMethod( items , "AddBar", h,"Task","1/12/2007","3/9/2007");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/25/2007","3/12/2007");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Task","2/1/2007","2/8/2007","B1");
_ObjectCallMethod( items , "AddBar", h,"Task","2/8/2007","2/15/2007","B2");
_ObjectCallMethod( items , "AddBar", h,"Task","2/15/2007","2/22/2007","B3");
_ObjectCallMethod( items , "AddBar", h,"Task","2/22/2007","2/28/2007","B4");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
879
|
How can I define a bar that shows two colors, one up and one down, without using skin or EBN files
OBJECT bar,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Add", "A");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "Shape", 2);
_ObjectSetProperty( bar , "Pattern", 1);
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Add", "B");
_ObjectSetProperty( bar , "Color", 128);
_ObjectSetProperty( bar , "Shape", 4);
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "Bars") , "Add", "A%B") , "Shortcut", "AB");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"AB","1/2/2001","1/6/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,12) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,16) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
878
|
Does your control support RightToLeft property for RTL languages or right to left
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 15);
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "P1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectSetProperty( g2antt , "RightToLeft", -1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
877
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
OBJECT columns,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ScrollBars", 15);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
_ObjectCallMethod( columns , "Add", "C3");
_ObjectCallMethod( columns , "Add", "C4");
_ObjectCallMethod( columns , "Add", "C5");
_ObjectCallMethod( columns , "Add", "C6");
_ObjectCallMethod( columns , "Add", "C7");
_ObjectCallMethod( columns , "Add", "C8");
_ObjectSetProperty( g2antt , "RightToLeft", -1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
876
|
Can I display the cell's check box after the text
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(34) = `caption,check`");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(AddItem(`Caption 1`),0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(AddItem(`Caption 2`),0) = True");
|
|
875
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Column`).Def(34) = `caption,check,icon,icons,picture`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Text");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
|
|
874
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Column`).Def(34) = `caption,icon,check,icons,picture`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Text");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellImage(h,0) = 1");
|
|
873
|
My problem is that I want to mark the cells from every second item in the gant with a other backgroundcolor
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/17/2008");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 16777216);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).FormatLabel = `(0:=sec(dvalue)) mod 2 ? 0=: : '<bgcolor=00FF00>' + 0=:`");
|
|
872
|
Is there any option to print the columns section on each page
OBJECT createobject("exontrol.print"),g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Col 1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Col 2");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Col 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = `Col 2`");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Col 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = `Col 2`");
_ObjectCallMethod( items , "AddBar", h2,"Task","2/5/2001","2/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,6) = 0");
_ObjectCallMethod( g2antt , "EndUpdate");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "ColumnsOnEveryPage=-2");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", g2antt);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
871
|
How can I add a different non-working area for different items
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Non-Work");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/24/2008");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 52");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "January");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `month(value) = 1`");
h = _ObjectCallMethod( items , "AddItem", "February, Saturday, Sunday");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `month(value) = 2 or (weekday(value) = 0 or weekday(value) = 6)`");
h = _ObjectCallMethod( items , "AddItem", "Sunday");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h,False) = `weekday(value) = 0`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
870
|
How can I define different non-working units for different items
OBJECT bar,chart,g2antt,insidezoomformat,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 78");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "DrawLevelSeparator", 0);
_ObjectSetProperty( chart , "LevelCount", 3);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).DrawGridLines = False");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>");
_ObjectSetProperty( chart , "MarkSelectDateColor", 2147481838);
insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
_ObjectSetProperty( insidezoomformat , "OwnerLabel", "<%mmm%> <%d%>");
_ObjectSetProperty( insidezoomformat , "BackColor", 16775406);
_ObjectSetProperty( insidezoomformat , "BackColorChart", _ObjectGetProperty( insidezoomformat , "BackColor"));
_ObjectSetProperty( insidezoomformat , "InsideCount", 4);
_ObjectSetProperty( insidezoomformat , "InsideLabel", "<b><%hh%></b>");
_ObjectCallMethod( _ObjectGetProperty( chart , "InsideZooms") , "Add", "6/22/2005");
_ObjectSetProperty( chart , "DrawGridLines", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Split`).Color = 255");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "Pattern", 6);
_ObjectSetProperty( bar , "Shortcut", "TaskS");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","6/21/2005","7/1/2005");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"TaskS","6/21/2005","6/28/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h1,False) = `weekday(value)=1 or weekday(value)=2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h1,True) = `weekday(value)=1 or weekday(value)=2 or (hour(value)<8 or hour(value)>=16 )`");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", h1,"TaskS","6/22/2005 4:00:00 AM","7/1/2005","E");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h1,False) = `weekday(value)=0`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h1,True) = `weekday(value)=0 or hour(value)<4 or hour(value)>19`");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"E");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`E`,21) = 5");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", h1,"TaskS","6/22/2005 12:00:00 PM","6/27/2005","E");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h1,False) = `weekday(value)=1 or weekday(value)=2`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemNonworkingUnits(h1,True) = `weekday(value)=1 or weekday(value)=2 or (hour(value)<8 or hour(value)>=16 )`");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"E");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Project 2");
_ObjectCallMethod( items , "AddBar", h,"Summary","6/26/2005","7/6/2005");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","TaskS 1");
_ObjectCallMethod( items , "AddBar", h1,"TaskS","6/26/2005","7/2/2005");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","TaskS 2");
_ObjectCallMethod( items , "AddBar", h1,"TaskS","6/28/2005","7/6/2005","E");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"E");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`E`,21) = 5");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","TaskS 3");
_ObjectCallMethod( items , "AddBar", h1,"TaskS","6/30/2005","7/2/2005","E");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"E");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
869
|
I want to define/highlight for specified dates as being non-working. Is this possible
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "NonworkingDaysColor", 255);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
c = _ObjectGetProperty( chart , "NonworkingDaysColor");
p = _ObjectGetProperty( chart , "NonworkingDaysPattern");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "NW");
_ObjectSetProperty( bar , "Color", c);
_ObjectSetProperty( bar , "Pattern", p);
_ObjectSetProperty( bar , "Height", -1);
_ObjectSetProperty( bar , "Shape", 17);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h,"NW","1/2/2001","1/3/2001","0");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`0`,29) = False");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K2");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddBar", h,"NW","1/2/2001","1/4/2001","0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`0`,29) = False");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","K2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
868
|
Do you have any sample how can I programmatically magnify a single date, so can show the hours, while the rest of the chart displays days
OBJECT chart,column,g2antt,insidezoomformat,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "MarkSearchColumn", 0);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "C");
_ObjectSetProperty( column , "HeaderAlignment", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 18);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 96");
_ObjectSetProperty( chart , "AllowCreateBar", 1);
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "DrawLevelSeparator", 0);
_ObjectSetProperty( chart , "LevelCount", 3);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).DrawGridLines = False");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "DrawDateTicker", -1);
_ObjectSetProperty( chart , "DateTickerLabel", "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>");
_ObjectSetProperty( chart , "MarkSelectDateColor", 2147481838);
insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
_ObjectSetProperty( insidezoomformat , "OwnerLabel", "<%mmm%> <%d%>");
_ObjectSetProperty( insidezoomformat , "BackColor", 16775406);
_ObjectSetProperty( insidezoomformat , "BackColorChart", _ObjectGetProperty( insidezoomformat , "BackColor"));
_ObjectSetProperty( insidezoomformat , "InsideCount", 4);
_ObjectSetProperty( insidezoomformat , "InsideLabel", "<b><%hh%></b>");
_ObjectCallMethod( _ObjectGetProperty( chart , "InsideZooms") , "Add", "6/22/2005");
_ObjectSetProperty( chart , "DrawGridLines", 2);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","6/21/2005","7/1/2005");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/28/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/23/2005","7/1/2005","E");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"E");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`E`,21) = 5");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/25/2005","6/27/2005","E");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"E");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,1) = 1");
h = _ObjectCallMethod( items , "AddItem", "Project 2");
_ObjectCallMethod( items , "AddBar", h,"Summary","6/26/2005","7/6/2005");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/26/2005","7/2/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/28/2005","7/6/2005","E");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"E");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`E`,21) = 5");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/30/2005","7/2/2005","E");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellMerge(h1,0) = 1");
_ObjectCallMethod( items , "DefineSummaryBars", h,"",h1,"E");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
867
|
How can I define my own/custom labels and subdivisions
OBJECT chart,g2antt,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "ToolTip", "");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ScrollRange(0) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.ScrollRange(1) = 110");
_ObjectSetProperty( chart , "FirstVisibleDate", 0);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
_ObjectSetProperty( chart , "LevelCount", 3);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "ToolTip", "");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectSetProperty( level , "Unit", 4096);
_ObjectSetProperty( level , "Count", 16);
_ObjectSetProperty( level , "FormatLabel", "'Group <b>'+int(1 +dvalue/16)");
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "ToolTip", "");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectSetProperty( level , "Unit", 4096);
_ObjectSetProperty( level , "Count", 4);
_ObjectSetProperty( level , "FormatLabel", " (abs(dvalue)/4) mod 4");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim levObj")
_ObjectCallMethod(g2antt, "TemplatePut", level)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`0`) = `Sub-Group <b>1</b>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`1`) = `Sub-Group <b>2</b>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`2`) = `Sub-Group <b>3</b>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`3`) = `Sub-Group <b>4</b>`");
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(2)");
_ObjectSetProperty( level , "ToolTip", "");
_ObjectSetProperty( level , "Unit", 4096);
_ObjectSetProperty( level , "Count", 1);
_ObjectSetProperty( level , "FormatLabel", "(abs(dvalue) mod 4)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`0`) = `A`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`1`) = `B`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`2`) = `C`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "levObj.ReplaceLabel(`3`) = `D`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
866
|
I want to mark or highlight the last Friday of the month. Is there any option to do that
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/17/2008");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).FormatLabel = `(weekday(dvalue)=5 ? month(dvalue+7)!=month(dvalue) ? '<b><bgcolor=000000><fgcolor=FFFFFF>' ) + value`");
|
|
865
|
I use the SelectDate method but the dates are not being highligted. What can I do
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "SelectLevel", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.SelectDate(#1/2/2008#) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
864
|
Can I use ebn files to display the selected dates
OBJECT appearance,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 2,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( appearance , "Add", 1,"CP:2 0 -4 0 4");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "MarkSelectDateColor", 16777216);
_ObjectSetProperty( chart , "SelectLevel", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.SelectDate(#1/3/2008#) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.SelectDate(#1/4/2008#) = True");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2008","1/6/2008");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2008","1/7/2008");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/4/2008","1/8/2008");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 4"),"Task","1/5/2008","1/9/2008");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
863
|
Can I use ebn files to display the selected dates
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "MarkSelectDateColor", 16777216);
_ObjectSetProperty( chart , "SelectLevel", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.SelectDate(#1/3/2008#) = True");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2008","1/6/2008");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2008","1/7/2008");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/4/2008","1/8/2008");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
862
|
How can I change the color for selected dates to be solid
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "MarkSelectDateColor", 2147418112);
_ObjectSetProperty( chart , "SelectLevel", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.SelectDate(#1/15/2008#) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.SelectDate(#1/16/2008#) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
861
|
How can I disable selecting dates when I click the chart's header
OBJECT g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "AllowSelectDate", 0);
|
|
860
|
Is there any option to specify which dates can be magnified or resized
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "ShowNonworkingDates", -1);
_ObjectSetProperty( chart , "CondInsideZoom", "not(weekday(value) = 0 or weekday(value) = 6)");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
859
|
How can I change the width for a specified date time unit
OBJECT chart,g2antt,insidezoom,insidezooms;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
insidezoom = _ObjectCallMethod( insidezooms , "Add", "1/4/2008");
_ObjectSetProperty( insidezoom , "Width", 32);
_ObjectSetProperty( insidezoom , "AllowInsideFormat", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
858
|
How can I disable the control's splitter so the user can't resize the list area
OBJECT g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "OnResizeControl", 129);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(0) = 60");
|
|
857
|
How can I disable the control's splitter so the user can't resize the chart area
OBJECT g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( g2antt , "OnResizeControl", 128);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(1) = 60");
|
|
856
|
How can I change the label for a specified unit
OBJECT chart,g2antt,insidezooms;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
_ObjectSetProperty( _ObjectGetProperty( chart , "DefaultInsideZoomFormat") , "OwnerLabel", "<b><%d%></b> <%d2%>");
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
_ObjectSetProperty( insidezooms , "DefaultWidth", 32);
_ObjectSetProperty( _ObjectCallMethod( insidezooms , "Add", "1/4/2008") , "AllowInsideFormat", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
855
|
How can I bold the inside units
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
_ObjectSetProperty( _ObjectGetProperty( chart , "DefaultInsideZoomFormat") , "InsideLabel", "<b><%hh%></b>");
_ObjectCallMethod( _ObjectGetProperty( chart , "InsideZooms") , "Add", "1/4/2008");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
854
|
How can I change the scale unit when doing inside zoom ( the chart displays weeks, and we want week days )
OBJECT chart,g2antt,insidezoomformat,insidezooms,level;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%mmmm%>");
_ObjectSetProperty( level , "Unit", 16);
level = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Label", "<%ww%>");
_ObjectSetProperty( level , "Unit", 256);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
_ObjectSetProperty( insidezoomformat , "OwnerLabel", "<font ;7><%mmm%> Week: <%ww%>");
_ObjectSetProperty( insidezoomformat , "InsideLabel", "<font ;7><b><%d1%></b>");
_ObjectSetProperty( insidezoomformat , "InsideUnit", 4096);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
_ObjectCallMethod( insidezooms , "Add", "2/3/2008");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
853
|
How can I zoom or magnify the selected date to display the hours, from 8 to 8
OBJECT chart,g2antt,insidezoomformat,insidezooms;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
insidezoomformat = _ObjectGetProperty( chart , "DefaultInsideZoomFormat");
_ObjectSetProperty( insidezoomformat , "InsideLabel", "H: <b><%hh%></b>");
_ObjectSetProperty( insidezoomformat , "InsideUnit", 65536);
_ObjectSetProperty( insidezoomformat , "InsideCount", 8);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectCallMethod( insidezooms , "Add", "1/4/2008");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
852
|
How can I zoom or magnify the selected date to display the hours
OBJECT chart,g2antt,insidezooms;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectCallMethod( insidezooms , "Add", "1/4/2008");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
851
|
How can I change the foreground color for a time unit
OBJECT chart,g2antt,insidezooms;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
_ObjectSetProperty( _ObjectGetProperty( chart , "DefaultInsideZoomFormat") , "ForeColor", 255);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
_ObjectSetProperty( insidezooms , "DefaultWidth", 18);
_ObjectSetProperty( _ObjectCallMethod( insidezooms , "Add", "1/4/2008") , "AllowInsideFormat", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
850
|
How can I change the background color for a time unit, in the chart area
OBJECT chart,g2antt,insidezooms;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
_ObjectSetProperty( _ObjectGetProperty( chart , "DefaultInsideZoomFormat") , "BackColorChart", 255);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
_ObjectSetProperty( insidezooms , "DefaultWidth", 18);
_ObjectSetProperty( _ObjectCallMethod( insidezooms , "Add", "1/4/2008") , "AllowInsideFormat", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
849
|
How can I change the background color for a time unit, using EBN files
OBJECT chart,g2antt,insidezooms;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
_ObjectSetProperty( _ObjectGetProperty( chart , "DefaultInsideZoomFormat") , "BackColor", 16777216);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
_ObjectSetProperty( insidezooms , "DefaultWidth", 18);
_ObjectSetProperty( _ObjectCallMethod( insidezooms , "Add", "1/4/2008") , "AllowInsideFormat", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
848
|
How can I change the background color for a time unit
OBJECT chart,g2antt,insidezooms;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2008");
_ObjectSetProperty( chart , "AllowInsideZoom", -1);
_ObjectSetProperty( chart , "AllowResizeInsideZoom", 0);
_ObjectSetProperty( chart , "InsideZoomOnDblClick", 0);
_ObjectSetProperty( _ObjectGetProperty( chart , "DefaultInsideZoomFormat") , "BackColor", 255);
insidezooms = _ObjectGetProperty( chart , "InsideZooms");
_ObjectSetProperty( insidezooms , "SplitBaseLevel", 0);
_ObjectSetProperty( insidezooms , "DefaultWidth", 18);
_ObjectSetProperty( _ObjectCallMethod( insidezooms , "Add", "1/4/2008") , "AllowInsideFormat", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
847
|
How can I display the column using currency format and enlarge the font for certain values
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Currency");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
_ObjectCallMethod( items , "AddItem", "9.94");
_ObjectCallMethod( items , "AddItem", "11.94");
_ObjectCallMethod( items , "AddItem", "1000");
|
|
846
|
How can I highlight only parts of the cells
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
845
|
How can I get the number of occurrences of a specified string in the cell
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "occurrences");
_ObjectSetProperty( column , "ComputedField", "lower(%0) count 'o'");
_ObjectSetProperty( column , "FormatColumn", "'contains ' + value + ' of \'o\' chars'");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1 oooof the root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
844
|
How can I display dates in my format
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/21/2001");
_ObjectCallMethod( items , "AddItem", "2/22/2002");
_ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod( items , "AddItem", "4/24/2004");
|
|
843
|
How can I display dates in short format
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date") , "FormatColumn", "shortdate(value)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001");
_ObjectCallMethod( items , "AddItem", "2/2/2002");
_ObjectCallMethod( items , "AddItem", "3/3/2003");
_ObjectCallMethod( items , "AddItem", "4/4/2004");
|
|
842
|
How can I display dates in long format
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date") , "FormatColumn", "longdate(value)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001");
_ObjectCallMethod( items , "AddItem", "2/2/2002");
_ObjectCallMethod( items , "AddItem", "3/3/2003");
_ObjectCallMethod( items , "AddItem", "4/4/2004");
|
|
841
|
How can I display only the right part of the cell
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Right");
_ObjectSetProperty( column , "ComputedField", "%0 right 2");
_ObjectSetProperty( column , "FormatColumn", "'^"' + value + '^"'");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","SChild 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
840
|
How can I display only the left part of the cell
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Left") , "ComputedField", "%0 left 2");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","SChild 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
839
|
How can I display true or false instead 0 and -1
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Boolean") , "FormatColumn", "value != 0 ? 'true' : 'false'");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
|
|
838
|
Is there any option to print the columns section on each page
OBJECT createobject("exontrol.print"),g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "LevelCount", 2);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","2/5/2001","2/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,6) = 0");
_ObjectCallMethod( g2antt , "EndUpdate");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "ColumnsOnEveryPage=1");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", g2antt);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
837
|
How do I print the control's content
OBJECT createobject("exontrol.print"),g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.Link(`L1`,6) = 0");
_ObjectCallMethod( g2antt , "EndUpdate");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", g2antt);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
836
|
How can I display icons or images instead numbers
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Icons");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "'The cell displays the icon <img>'+value+'</img> instead ' + value");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( items , "AddItem", 3);
|
|
835
|
How can I display the column using currency
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Currency") , "FormatColumn", "currency(dbl(value))");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
_ObjectCallMethod( items , "AddItem", "0");
_ObjectCallMethod( items , "AddItem", 5);
_ObjectCallMethod( items , "AddItem", "10000.99");
|
|
834
|
How can I display the currency only for not empty cells
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Currency") , "ComputedField", "len(%0) ? currency(dbl(%0)) : ''");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
_ObjectCallMethod( items , "AddItem", "0");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem()) = 8421631");
_ObjectCallMethod( items , "AddItem", "10000.99");
|
|
833
|
Is there a function to display the number of days between two date including the number of hours
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start") , "Width", 32);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Duration") , "ComputedField", "((1:=int(0:= (date(%1)-date(%0)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)" +
"*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "1/11/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #1/14/2001#");
h = _ObjectCallMethod( items , "AddItem", "2/22/2002 12:00:00 PM");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #3/14/2002 1:00:00 PM#");
h = _ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #4/11/2003 11:00:00 AM#");
|
|
832
|
Is there a function to display the number of days between two date including the number of hours
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Duration") , "ComputedField", "^"D ^" + int(date(%1)-date(%0)) + ^" H ^" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "1/11/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #1/14/2001 11:00:00 PM#");
h = _ObjectCallMethod( items , "AddItem", "2/22/2002 12:00:00 PM");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #3/14/2002 1:00:00 PM#");
h = _ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #4/11/2003 11:00:00 AM#");
|
|
831
|
How can I display the number of days between two dates
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Start");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "End");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Duration") , "ComputedField", "(date(%1)-date(%0)) + ' days'");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "1/11/2001");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #1/14/2001#");
h = _ObjectCallMethod( items , "AddItem", "2/22/2002");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #3/14/2002#");
h = _ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,1) = #4/11/2003#");
|
|
830
|
How can I get second part of the date
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Second") , "ComputedField", "sec(date(%0))");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:10:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:01:22 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:23:01 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:11:59 PM");
|
|
829
|
How can I get minute part of the date
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Minute") , "ComputedField", "min(date(%0))");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:10:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:01:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:23:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:11:00 PM");
|
|
828
|
How can I check the hour part only so I know it was afternoon
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "hour(%0)>=12") , "Bold", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Hour") , "ComputedField", "hour(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
827
|
What about a function to get the day in the week, or days since Sunday
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "WeekDay") , "ComputedField", "weekday(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
826
|
Is there any function to get the day of the year or number of days since January 1st
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Day since January 1st") , "ComputedField", "yearday(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
825
|
How can I display only the day of the date
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Day") , "ComputedField", "day(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
824
|
How can I display only the month of the date
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Month") , "ComputedField", "month(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
823
|
How can I get only the year part from a date expression
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Year") , "ComputedField", "year(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
822
|
Can I convert the expression to date
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date") , "ComputedField", "date(dbl(%0))");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "30000.99");
_ObjectCallMethod( items , "AddItem", "3561.23");
_ObjectCallMethod( items , "AddItem", "1232.34");
|
|
821
|
Can I convert the expression to a number, double or float
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number + 2") , "ComputedField", "dbl(%0)+2");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
820
|
How can I display dates in long format
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "LongFormat") , "ComputedField", "longdate(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
819
|
How can I display dates in short format
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "ShortFormat") , "ComputedField", "shortdate(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
818
|
How can I display the time only of a date expression
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Time") , "ComputedField", "'time is:' + time(date(%0))");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
817
|
Is there any function to display currencies, or money formatted as in the control panel
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Currency") , "ComputedField", "currency(dbl(%0))");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", 1.23);
_ObjectCallMethod( items , "AddItem", 2.34);
_ObjectCallMethod( items , "AddItem", 10000.99);
|
|
816
|
How can I convert the expression to a string so I can look into the date string expression for month's name
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Str") , "ComputedField", "str(%0) + ' AA'");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
815
|
Can I display the absolute value or positive part of the number
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Abs") , "ComputedField", "abs(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
814
|
Is there any function to get largest number with no fraction part that is not greater than the value
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Floor") , "ComputedField", "floor(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
813
|
Is there any function to round the values base on the .5 value
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Round") , "ComputedField", "round(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
812
|
How can I get or display the integer part of the cell
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Int") , "ComputedField", "int(%0)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
811
|
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "") , "FormatColumn", "proper(%0)");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "root");
_ObjectCallMethod( items , "InsertItem", h,"","child child");
_ObjectCallMethod( items , "InsertItem", h,"","child child");
_ObjectCallMethod( items , "InsertItem", h,"","child child");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
810
|
Is there any option to display cells in uppercase
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "") , "FormatColumn", "upper(%0)");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
809
|
Is there any option to display cells in lowercase
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "") , "FormatColumn", "lower(%0)");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
808
|
How can I mark the cells that has a specified type, ie strings only
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "type(%0) = 8") , "ForeColor", 255);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"",2);
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
807
|
How can I bold the items that contains data or those who displays empty strings
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "not len(%1)=0") , "Bold", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "C2");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hC)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(hC,1) = `1`");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
806
|
Can I change the background color for items or cells that contains a specified string
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%0 contains 'hi'") , "BackColor", 255);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
805
|
Is there any option to change the fore color for cells or items that ends with a specified string
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%0 endwith '22'") , "ForeColor", 255);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1.22");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2.22");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
804
|
How can I highlight the cells or items that starts with a specified string
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%0 startwith 'C'") , "Underline", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","SChild 3");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
803
|
How can I change the background color or the visual appearance using ebn for a particular column
OBJECT columns,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( g2antt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", columns)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Add(`Column 2`).Def(7) = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Add(`Column 3`).Def(7) = 16777471");
_ObjectCallMethod( columns , "Add", "Column 4");
|
|
802
|
How can I change the foreground color for a particular column
OBJECT columns,g2antt;
g2antt = ObjectByName("AN1") ;
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", columns)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Add(`Column 2`).Def(8) = 8439039");
_ObjectCallMethod( columns , "Add", "Column 3");
|
|
801
|
How can I change the background color for a particular column
OBJECT columns,g2antt;
g2antt = ObjectByName("AN1") ;
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", columns)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Add(`Column 2`).Def(7) = 8439039");
_ObjectCallMethod( columns , "Add", "Column 3");
|